home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-07_1992_-_de_Side_B.d64 / window demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  420b  |  26 lines
  1. 5 ifa=1then100
  2. 10 a=1:load"window-manager",8,1
  3. 20 poke53280,0:poke53281,0
  4. 100 sys 49152,"window 1":rem window-datei
  5. 110 print"[147]":sys 49155,0:rem hauptmenue
  6. 120 on peek(2) goto 1000,2000,3000,4000,5000
  7. 130 :
  8. 500 geta$:ifa$=""then500
  9. 510 return
  10. 520 :
  11. 1000 rem datenmenue
  12. 1010 sys 49155,1
  13. 1020 goto110
  14. 2000 rem diskmenue
  15. 2010 sys 49155,2
  16. 2020 goto110
  17. 3000 rem infoenue
  18. 3010 sys 49155,3
  19. 3020 goto110
  20. 4000 rem parametermenue
  21. 4010 sys 49155,4
  22. 4020 goto110
  23. 5000 rem ende?
  24. 5010 sys 49155,5
  25. 5020 on peek(2) goto 110:end
  26.